Vendor Payments

This dataset consists of a listing of payments made to Fulton County vendors for poducts and services provided to the County. The payment records span the period from January 1, 2014 to present. Included with each payment record is the disbursement date, the department making the payment, the type of service or product, the fund from which the payment is drawn, the payment amount and the name of the vendor to which the payment was made. This dataset is updated weekly.

## Install the required package with:
## install.packages("RSocrata")
library("dplyr")
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library("RSocrata")
library("tidyverse")
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.3     v stringr 1.4.0
## v tidyr   1.1.3     v forcats 0.5.1
## v readr   2.0.0
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
VendorPayments <- read.socrata(
  "https://data.fultoncountyga.gov/resource/mxhc-krcg.json"
)
VendorPayments
VendorPayments <-
        VendorPayments %>% mutate(payment_type = as.factor(payment_type),
                                  city = as.factor(city),
                                  fiscal_year = as.numeric(fiscal_year),
                                  fy_period = as.numeric(fy_period),
                                  dept = as.factor(dept),
                                  unit = as.factor(unit),
                                  unit_name = as.factor(unit_name),
                                  object = as.factor(object),
                                  object_name = as.factor(object_name),
                                  fund = as.factor(fund),
                                  fund_name = as.factor(fund_name),
                                  amount = as.numeric(amount),
                                  # = as.numeric(),
                                  # = as.numeric(),
                                  # = as.numeric(),
                                  vendor_legal_name  = as.factor(vendor_legal_name),
                                  check_status  = as.factor(check_status),
                                  #  = as.factor(),
                                  #  = as.factor(),
                                  #  = as.factor(),
                                  department_name = as.factor(department_name)) %>%
        select(-c("vendor_code", "check_no","dis_doc_id", "payment_document", "vendor_invoice_no", "dept", "unit", "fiscal_year", "fy_period", "object", "fund", "vendor_invoice_date", "payment_type", "disb_week", "vendor_invoice_week", "check_clearance_or_cancel_date", "check_cc_week",  "city"
))
summary(VendorPayments, maxsum = 8)
##    disb_date                                              department_name  
##  Min.   :2017-01-04 00:00:00   Non-Agency                         : 32197  
##  1st Qu.:2018-03-23 00:00:00   Real Estate and Asset Management   : 27320  
##  Median :2019-04-24 00:00:00   Public Works                       : 20646  
##  Mean   :2019-05-02 23:16:56   Department of Community Development: 18464  
##  3rd Qu.:2020-06-05 00:00:00   Fulton County Board of Health      : 15937  
##  Max.   :2021-08-13 00:00:00   Superior Court-General             : 10467  
##                                Library                            :  9584  
##                                (Other)                            :138628  
##                                  unit_name     
##  Insurance & Bonds                    : 21977  
##  Housing & Community Development      : 13765  
##  District Attorney                    :  7565  
##  Superior Court - Court Administration:  6762  
##  Utilities                            :  6349  
##  Central Fulton Service Area          :  5796  
##  Transportation & Logistics           :  5756  
##  (Other)                              :205273  
##                                    object_name    
##  Professional Services                   : 30241  
##  Office Supplies                         : 24077  
##  Workers Compensation Coverage and Claims: 19689  
##  Tenant Rental Assistance                :  9924  
##  Travel/Conference                       :  9454  
##  Maintenance Supplies                    :  8604  
##  Uniforms                                :  8287  
##  (Other)                                 :162967  
##                          fund_name          amount        
##  General                      :148092   Min.   :-2389709  
##  Risk Management Fund         : 26677   1st Qu.:      86  
##  Fulton County Board of Health: 15406   Median :     292  
##  EMERGENCY RENTAL ASSISTANCE  : 13260   Mean   :    7840  
##  Grants                       : 13161   3rd Qu.:    1276  
##  Water & Sewer Revenue        : 11333   Max.   : 9244359  
##  Water & Sewer R & E          :  6445                     
##  (Other)                      : 38869                     
##                       vendor_legal_name     check_status   
##  OFFICE DEPOT                  :  6734   Cancelled:  4589  
##  AT&T MOBILITY                 :  6701   Disbursed: 17838  
##  AMAZON.COM                    :  6439   Paid     :250816  
##  HAPPY FACES PERSONNEL GP. INC.:  4402                     
##  EQUIAN                        :  4050                     
##  CONCENTRA                     :  3997                     
##  STAPLES ADVANTAGE             :  3840                     
##  (Other)                       :237080

{upload-VendorPayments-Data, cache=TRUE, cache.extra = Sys.Date()} #googledrive::drive_auth() library(openxlsx) library(googledrive) openxlsx::write.xlsx(list("Vendor Payments" = VendorPayments) , "Atlanta.xlsx", overwrite = TRUE, asTable = TRUE, freezePane = c("firstRow"), colWidths = "auto", withFilter = TRUE) #googledrive::drive_upload(media ="Atlanta.xlsx", type = "spreadsheet", overwrite = TRUE) googledrive::drive_update(media ="Atlanta.xlsx", file = as_id("1yVUKyYIfw6-2f6HfHImNtVORrBTnuIuCpZRDrNCYaI8"))